home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue28 / construc / MAIN.DPR < prev   
Encoding:
Text File  |  1997-10-26  |  289 b   |  18 lines

  1. program Main;
  2. {$APPTYPE CONSOLE}
  3. {$C-}
  4. uses
  5.   SysUtils, Dialogs;
  6.  
  7.   function SideEffect(X: Integer): Integer;
  8.   begin
  9.     ShowMessage(Format('Hello, world %d.',[X]));
  10.     Result := X
  11.   end;
  12.  
  13. begin
  14.   writeln('start');
  15.   assert(SideEffect(42) = 42);
  16.   writeln('stop');
  17. end.
  18.